home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / me_cd.zip / EGA.MUT < prev    next >
Text File  |  1987-08-13  |  131b  |  6 lines
  1. (defun
  2.   EGA   {(puts "^[[=43h")(screen-length 43)}
  3.   noEGA {(puts "^[[=3h") (screen-length 25)}
  4.   Efoo  {(puts "^[[=43h")}
  5. )
  6.